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СТ-ізз CLOCK FROGRAMS 


. TITLE "СТ-ізӘ CLOCK РЕОБЕНМБ5" 


i THESE РЕОПЕНМ5 HILL БЕНО THE TIME ОҒ DAY OR THE DATE 
i FROM THE CT-100 BOARD АНС RETURN ІТ AS ASCII ОАТ. 
5ШІІРОТ 15 é НЕСІІ CHARACTERS FOR THE TIME OF DAY. 
AND THE CATE 15 ШИТРЫТ AS 4 ASCII CHARACTERS, THE 

5 FORMAT FOR TIME OJTFUT IS : HOURS MINUTES; SECONDS. 
IN A 24 HOUR MIDE. THE FORMAT FOR THE САТЕ 15 
MONTH. DAY. 


5 ВНЦОТНЕЕ FROGRAM 15 INMCLI CED FOR SETTING THE CLOCK. 
j INFUT FROM THE SYSTEMS KEYBOARD CONTROLS THE 
a CLOCK SET FUNCTIONS AS FØLLOHS: 


i T = SELECT & Нор TIME REGISTER 

ў D = SELECT & HOLD САТЕ REGISTER 

5 H = TOGGLE НОМНФЯМОМТН DIGITS 

4 М = TOGGLE МІНМТЕЗНрӘнтТт DIGITS 

i 5 = SYNCHRONIZE SECONDS DIGITS 

3 СБЕСОМО5> НЕЕ HELD AFTER TIME IS SET 

i UNTIL THIS KEY I5 FPRESSED¿ 

i THE CLOCK IS DISPLAYED ON THE CONSOLE СЕТ WHILE THE 


ASET FUNETIONS ARE FERFORMED. FRESSIHNG A CARRIAGE RETURN 
S HILL CAISE A RETURN TO BASIC. 


THE DEFUSR COMMAND ІМ ALTAIR BASIC ОЕ ITS EQUISVILENT 
ЗІМ OTHER BASICS IS USED TO POINT BASIC TO THE THREE 
i PROGRAMS FūR THE СТ-А1йй. THE ТІМЕ ROUTINE STARTS AT 
HES ADDRESS Foo. THE DATE ROUTINE STAETS AT НЕХ 

5 ADDRESS F02 AND THE CLOCK SET ROUTINE STARTS AT 

i HES ADCRESS Fos. ЫНЕМ THE TINE ОЕ DATE ЕОМТІМЕ ARE 
CALLED. THEY HILL DEFŪSIT 4 DR 6 ASCII CHARACTERS 

5 STARTING AT ADERESS БЕНИ. THE ЕОМШТІНЕЗ ARE CALLEC 
MITH THE USR COMMAND ПЕ ITS EGJIVALENT. THE DATA 
+15 RETRIEVED FROM MEMORY БҰ USING THE РЕЕК COMMAND. 


. 15958 8066 OPERATORS OML'Y 
. FABS ; DUTPUT IS INTEL НЕХ FORMAT 
. LADOR 5 ADDRESSES LISTED LSD FIRST 
8844 РАО = 44Н SPORT A DATH 
де 5 РАС = 43H PORT A CONTRÖL 
858465 FBD = 46Н 5РОЕТ B DATA 
вад? РЕС = 47H PORT B CONTROL 
5018 CRTSTS = 16H ERT STATUS PORT 
agii CRTDTA = 11H SERT DATA PORT 
дові ІЧМ5К = BiH 5 INFOT STATUS MASKE 
ggz QUTHSE = ВЕН 5 ООТРЦТ STATUS MASE 
БЕЙӘ ӘШТЕМЕ = ØBFBAH j ӨШТРОТ EUFFER 
F308 . LOC БЕЕН 5 PROGRAM STARTS AT HES F309 
F360 СЗБрОҒӘ 0 IMP DTIME 3 JUMP ТО TIME БЕТ ROUTINE 
F303 C3AEFS $ ЈИЕ DODATE JUMP TO САТЕ SET ROUTINE 
F306 3EUƏ CLKSET: MVI R ан 0 ; INITIALIZE С1-ій0 
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F363 D345 
FRODA 0247 
сабо 3E7B 
FS0E D344 
F319 ZETT 
F312 D3465 
F314 ZE14 
Ғӛліе 0345 
Езіз Ей 
Езін Ох? 
Ғәіг ЗЕ 
ҒӘЗЕ 0346 
F320 DB46 
F3z2 Пв«а? НКЕ": 
F524 ESSB 
Ез>е CA44F3 
F329 FEAD 
ЕЗБЕ  CDODEGFS 
ЕӘЗЕ БрВ4в 
F235 івоп 
Ез22 ПрНЗЕЗ 
F335 ПрЮНЯФЕЗ 
F938 CDASFS 
F336 CDASFS 
Foz CDASFS 
Fè4i ГрНВЗЕЗ 
F344 DELA CSTS 
ЕӘ46 ESōLl 
F343 CAZZFS 
546 DELL 
Ға4р ЕБТЕ 
F34F FES4 
ЕЗ1 C259F8 
Ез5ы 3E4565 
Евәзе C384F3 
Ғзоз ҒЕЯ4 DTST: 
F256 C2ž63FS 
F35E ХЕТ 
F360 C384F83 
F362 FESZ STET 
F365 ШоорЕВ 
F268 ЗЕЯй 
F35A CESB4F3 
ЕЗБЕ РЕЗ HTST: 
ЕЗБЕ СЕГЕ 
ҒӘР2 СББ 
F574 F630 
Fare C334F8 А 
F379 FE4D МТТ 
ЕҒӘРЕ C232FfF3 
For DEJE 
ЕБВ ЕБОЕ 
F352 Ғ61В 
Ес 0346 STORE; 
F335 СІЕЗӘШЕӘ 


VERSION, 1.8 


à 
QUT 
DUT 
МУІ 
OUT 
МУІ 
OUT 
MWI 
DUT 
МУІ 
OUT 
MWI 
IIT 
IN F 
IN F 
AHI 
JZ с 
MYI 
CALL 
IM P 
MWI 
CALL 
CALL 
CALL 
CALL 
CALL 
CALU 
IN С 
ANI 
ЈЕ М 
IN C 
ANI 
CPI 
JHZ 
МУІ 
JMP 
CFI 
JNZ 
МТ 
JMF 
CPI 
JNZ 
МУІ 
JMF 
ЕРІ 
ты? 
ІН F 
ORI 
JAP 
CFI 
ЈМЕ 


ІЧ F 


AMI 
ORI 
DUT 
JME 


Ж. 


а 


РАС 

РБС 

А, TBH 

FAD 

В. ттн 
FED 

A. 14H 
FAC 

н. GAH 

FEC 

в, дан 
PED 

ED 

БС 

SBH 

STS 

в, BDH 
со 

ED 

D. ВН 
орІСІТ 
CDIGIT 
DDIGIT 
БҺІБІТ 
ЫрІСІТ 
CDIGIT 
RTSTS 
ІММЕК 
КЕТ 
RETETA 
TFH 

т н 
OTST 

A ЗЕН 
STARE 

u D n 
5Т5Т 

Я, 47H 
STORE 
HTT 

Я, 48Н 
STORE 
"н" 
МТТ 

BD 

хан 
STORE 
"м" 
СТТ 

Бр 

BDFH 
16H 

FED 
HKEY 
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; RESET 1HZ INTERRUPT 
5 TEST FOR ІН ІМТЕБЕЕШРТ 


360 TEST FOR КЕТ FRESSED 
5 ОЈТРОТ CAR БЕТ 


RESET ІН ІНТЕЕЕОРТ 


+ SELECT FIRST DIGIT 
i DISPLAY CLICK 


IF KEY PRESSED . 


-4 
m 
іл 
-ч 


UNTIL ан? PRESS 
IN DATA 
OFF PARITY 
FOR T 

TEST FURTHER IF МОТ T 

SET A TO TIME SELECT СОСЕ 
STORE SELECT СОСЕ 

TEST FÜR D 

TEST FURTHER IF МОТ D 

SET A TŪ DATE SELECT CODE 
STORE SELECT СОЕ 

TEST FÜR 5 

TEST FURTHER IF NOT 5 

SET А Т0 TIME DISPLAY CODE 
STŪRE SELEČT СОСЕ 

TEST FOR H 

TEST FURTHER IF NOT H 

REAL SELECT CODE 

SET TOGGLE HOURS/MONTHZ 
STORE SELECT CODE 

TEST FOR M 

TEST FURTHER IF NOT M 

READ SELECT CODE 

SET TOGGLE MINUTES DASS 


LOJF OR KET 
READ 
MASK 
TEST 


BIT 


“ “ “. “. “4, “ “. “. “-. 


“ te Me -“. M -. .“ % “4. Г“. % “. 8. % “. 


i STORE МЕМ SELECT CODE 


580 HAIT FÜR ІН? OR KEY PRESS 
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Facs 
Foc 
ҒӘСЕ 
FƏCDb 
ҒӘСЕ 


әр> 


F3D3 
Ер 
РОЗ 
ҒӘОБ 
FpD 
FSEG 
FSEL 
ҒӘЕз 
FSE4 


ҒәЕ? 
FEA 
FEB 
FEC 


БЕЙ 
C3 
сіг>гез 
та 
D344 
CE44 
0645 
Ев 
снӘәЯғӘ 


CDBFFS ` 


СЗЕрҒӘ 


21006F 
ZENB 
D346 
СОЮЗЕ 
ЗЕ 
D3465 
сэ 


CE4 
2169BF 
СОРАР 
СОЕТЕЗ 
СОЕТЕ Э 
ОЕТ 
Egg 
СБОР 
сэ 


160 
CDSFFS 
СОЗЕЕЕ 
1590 

СрЕ?ЕВ 


CZDODFS 


СӘЗЕҒӘ 
?? 


mym 
“.> 
сэ 


RDIGIT: 


DHRIT: 


DOIGIT: 


DDATE : 


DTIME: 


READ4 : 


НЕХТ: 


2908 


CFI BDH 


JMP HKEY 


MOY A. D 
QUT FAD 
IN FAD 
ІЧ PAC 
ANI SOH 
JZ CHAIT 
ІМ FAD 
ANI BFH 
JRI Зан 
мот C A 
MoN A D 
AEI зен 
MIY DA 
Mow АС 
КЕТ 


CALL ЕрБІЗІТ 
ІМР СО 


ХІ Н, DUTBUF 


MYI ғ, 06H 
OUT FED 
CALL READ4 
HI А, ан 
OJT FED 
RET 


ІЧ PED 


XI Н.ООТЕМЕ 


CALL READ 
CALL RSDIG 
CALL RSDIG 
IN РЕС 

НМІ ФОН 
ЈЕ БТІНЕ 
БЕТ 


мет D GBH 
CALL RDIGIT 
CALL RDIGIT 
MWI р, BBH 
CALL к5різ 
мом A D 

СРІ 40H 

RZ 

JMP МЕХТ 


CALL ЕБІЗІТ 
MOs M A 

ІНА H 

FET 
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i TEST FOR CAR RET . 
i ЕЕТШЕМ TO MONITOR 
i IGNORE INVALID KEYS 


SELECT DIGIT 


“. 


RESET DIGIT INTERRUPT 
TEST FOR DIGIT PRESENT 


-. 


Е 


ЦООР UNTIL DIGIT РКЕСЕНТ 
READ DIGIT 

STRIP ZONE 

AD ASCII ZONE 

ЗАТЕ A 

STEF ТО NEST DIGIT. 


-.-. . о “- 


RESTORE A 


“. 


READ A DIGIT 
DISPLAY DIGIT 


>. 


w. 


POINT ТО OUTPUT BUFFER 
SELECT DATE 


-. 


“-. 


FEAD DATE ТО ОМТРЦТ BUFFER 
ЗЕТ TIME DISPLAY MOCE 


У. 


.. 


СОМЕ 


we 


RESET іН? INTERRUFT 
POINT TO OUTPUT BUFFER 
ООТРЦОТ FIRST 4 DIGITS 
ОМТРЦТ CIGIT- 
> OUTFUT CIGIT 
TEST IF CLOCK HAS TŪGGLED 


Me w “ м 


D Л 


-. 


READ TIME AGAIN 
DONE 


“. 


-. 


SELECT FIRST DIGIT 
DELAY 2 DIGIT SCANS 


“ 


SELECT FIRST DIGIT 
READ AND ООТРОТ A DIGIT 


“. 


ъ. 


ТЕСТ IF 4 DIGITS рОНЕ 
RETURN WHEN 4 DIGITS РОМЕ 


“. 


-. 


: READ A DIGIT 
STORE IN OUTPUT BUFFER 
ТЕР ТО НЕХТ DIGIT 


“. 
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FSED 
ЕЗЕЕ 
FSF 
ЕЗЕР 
ЕӘЕЕ 
ЕБЕб 
ЕЗЕӘ 


ЗЕ 
DELG 
Esz 
CZECFS 
ғБ 
D311 


сә 


(жеме, 


PRIGRANS 


со; 


. END 


МОУ Е.А 

ІМ СЕТ5Т5 
ANI DITHSEK 
Іне со 

MIY A E 
DUT CRTOTA 
RET 


5ЭНМЕН 
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i TEST IF READY FOR OUTPUT 


S HAIT TILL КЕНГЕ 
+ RESTORE A 

> OUTFUT DATA 

3 DONE 


